﻿Module Uteis
    Public Function VerificaSeDiaUtil(ByVal dtDia As Date) As Boolean

        If Not (dtDia.DayOfWeek = DayOfWeek.Saturday Or dtDia.DayOfWeek = DayOfWeek.Sunday) Then
            Return True
        Else
            Return False
        End If

    End Function
End Module
